home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 237 / 237.d81 / free cell.dot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  465 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 11 print"[144]":a=rnd(-ti)
  3. 12 uc=4613:hc=4675:hk=4739
  4. 13 dimx,y,cd(52),x1(15),y1(52),cr(8,52),cv(52),cc(52)
  5. 14 gosub5010
  6. 90 sys4608,224:.ed:.br,1:gosub500
  7. 91 .ol,243*256
  8. 99 gosub5030:.br,0:.mp,6,0
  9. 100 .do:.ee:.wb:.un e%:.tx,0
  10. 101 ife%<>-1then30000
  11. 102 .of:  poke53272,22: end
  12. 200 gosub300
  13. 202 e%=i%*2
  14. 299 .er:return
  15. 300 .bx,14,25,10,14,160,2:.tx,128+2
  16. 302 .pc,11,"quit game?"
  17. 304 .pc,13,"yes no"
  18. 306 .mz,2,17,19,21,22,13,13,2,128+0,"yn"
  19. 310 i%=sl%-2:return
  20. 500 dimsy(13),sx(7),sh(7):forx=2to7
  21. 501 poke53287+x,7:poke2040+x,137
  22. 502 px(x)=53248+x*2:py(x)=px(x)+1
  23. 503 next
  24. 504 sh(6)=4:sh(7)=4
  25. 506 fory=0to13:sy(y)=106+y*8:next
  26. 508 fory=0to7:sx(y)=(32+y*40)and255:next
  27. 510 poke53271,4:poke53277,4:poke53275,4
  28. 514 goto550
  29. 515 dn=0:iflx>7then541
  30. 516 poke53269,3:ly=cr(lx,0):lz=ly
  31. 517 ifly>14thenly=14
  32. 520 ifly<1thendn=1:return
  33. 526 pokepx(2),sx(lx):pokepy(2),sy(ly-1)
  34. 527 poke53264,(peek(53264)and3)orsh(lx)
  35. 532 poke53269,7
  36. 540 ly=lz:return
  37. 541 x=lx-7:ifcr(8,x)=0thendn=1:return
  38. 542 iflx>11thendn=1:return
  39. 543 pokepx(2),sx(lx-8)-8:pokepy(2),58
  40. 544 lx=lx-8:goto527
  41. 550 forx=1to13:cv(x)=x:cv(x+13)=x
  42. 552 cv(x+26)=x:cv(x+39)=x
  43. 554 cc(x)=0:cc(x+13)=1:cc(x+26)=1
  44. 556 next
  45. 600 pokemv+1,35
  46. 601 forx=0to7:.rd,x+1,x1(x),x1(x)+3,7,24:next
  47. 602 forx=xto11:x1(x)=x1(x-8)-1:x1(x+4)=x1(x-4)
  48. 603 .rd,x+1,x1(x),x1(x)+3,1,5
  49. 604 .rd,x+5,x1(x+4),x1(x+4)+3,1,5
  50. 605 next
  51. 607 .rd,17,0,6,0,0
  52. 609 .rd,18,7,15,0,0
  53. 610 .rd,19,37,39,0,0:return
  54. 699 rem"       getcard
  55. 700 [139]lx[177]7[167]720
  56. 701 ly[178]cr(lx,0):[139]ly[178]0[167][144]
  57. 702 cd[178]cr(lx,ly):x0[178]lx
  58. 704 cr(lx,0)[178]cr(lx,0)[171]1
  59. 706 ly[178]cr(lx,0):
  60. 707 [139]ly[178]0[167]:.bx,x1(lx),x1(lx)[170]3,6,11,128,11:[137]712
  61. 708 .op,cr(lx,ly),x1(lx),y1(ly)
  62. 710 .bx,x1(lx),x1(lx)[170]3,y1(ly)[170]5,y1(ly)[170]5,128,11
  63. 712 .ss,208:[142]
  64. 720 [139]lx[177]11[167]740
  65. 722 x[178]lx[171]7:cd[178]cr(8,x):cr(8,x)[178]0
  66. 724 .bx,x1(lx),x1(lx)[170]3,1,5,160,2
  67. 726 .ss,208:[142]
  68. 740 [144]
  69. 800 [139]lx[177]7[167]820
  70. 801 .tx,128:.p@,0,0,[196](cv(cd))[170][196](cc(cd))
  71. 802 [139]cr(lx,0)[178]0[167]808
  72. 803 [139]cv(cd)[179][177]cv(cr(lx,cr(lx,0))[171]1)[167]lx[178]x0:[137]808
  73. 804 [139]cc(cd)[178]cc(cr(lx,cr(lx,0)))[167]lx[178]x0
  74. 808 cr(lx,0)[178]cr(lx,0)[170]1
  75. 809 ly[178]cr(lx,0)
  76. 810 cr(lx,ly)[178]cd
  77. 812 .sr,208:.op,cd,x1(lx),y1(ly)
  78. 814 [142]
  79. 820 [139]lx[177]11[167]840
  80. 822 lx[178]lx[171]7:[139]cr(8,lx)[179][177]0[167]lx[178]x0:[137]808
  81. 824 cr(8,lx)[178]cd:cr(8,0)[178]cr(8,0)[170]1
  82. 826 .sr,208
  83. 828 .op,cd,x1(lx[170]7),1
  84. 830 [142]
  85. 840 [139]lx[177]15[167][144]
  86. 841 x[178]lx[171]7:
  87. 842 [139]cr(8,x)[178]0[175]cv(cd)[178]1[167]846
  88. 843 [139]cc(cr(8,x))[179][177]cc(cd)[167]lx[178]x0:[137]808
  89. 844 [139]cv(cr(8,x))[179][177]cv(cd[171]1)[167]lx[178]x0:[137]808
  90. 846 cr(8,x)[178]cd
  91. 848 .sr,208:.op,cd,x1(lx),1
  92. 849 [142]
  93. 900 [139]lx[177]7[167]:.of:[151]53272,22:[144]
  94. 1000 .bx,0,8,0,0,255,0
  95. 1001 .p@,8,0,"stopundo    ":.ss,232
  96. 1010 [141]2020
  97. 1060 pl[178]0:[139]dm[178]2[167]1065
  98. 1061 .bx,14,25,11,13,160,9
  99. 1062 .tx,9[170]128:.pc,12,"shuffling"
  100. 1065 [141]5020:[151]mv[170]1,35:[151]mv[170]2,19
  101. 1075 .do
  102. 1080 :.do
  103. 1081 ::.p1,2040,136:.p1,2041,136
  104. 1082 ::.p1,53287,7:.p1,mv[170]3,0
  105. 1100 ::.do:.ma:.kp,"sux"
  106. 1101 ::[139]r2%[167][141]6500
  107. 1102 ::.un cr% [176] i%:[139]i%[167]1150
  108. 1103 ::[139]cr%[177]15[167]i%[178]cr%[171]16:[137]1150
  109. 1104 ::lx[178]cr%[171]1:[141]515:gx[178]cr%[171]1
  110. 1105 ::[139]dn[178]1[167]1100
  111. 1106 ::.p1,2040,138:.p1,2041,138
  112. 1107 ::.p1,53287,8:.p1,mv[170]3,3
  113. 1108 ::tm[178]ti[170]30
  114. 1110 ::.do:.ma
  115. 1111 ::.un cr%:[139]tm[179]ti[176]cr%[171]1[179][177]gx[167]1119
  116. 1112 ::
  117. 1113 ::[139]cr(8,0)[178]4[167]1110
  118. 1114 ::[129]x[178]1[164]4:[139]cr(8,x)[178]0[167]y[178]x:x[178]4
  119. 1115 ::[130]:lx[178]y[170]7:[137]1120
  120. 1119 ::lx[178]cr%[171]1
  121. 1120 ::.ss,216:[141]3000:pl[178]dn
  122. 1121 ::[139]dn[178]0[167][141]3500:pl[178]dn
  123. 1122 ::[139]dn[178]0[167]1110
  124. 1123 ::[151]53269,3
  125. 1124 ::[129]x[178]5[164]8
  126. 1125 ::[139]cv(cr(8,x))[179][177]13[167]x[178]99
  127. 1126 ::[130]:[139]x[179][177]100[167]i%[178]4
  128. 1150 :.un i%:dn[178]0
  129. 1152 :[145]i%[141]1220,2100,1300,4000
  130. 1154 .un dn
  131. 1156 .er:[142]
  132. 1200 .ss,208
  133. 1201 .bx,12,26,10,14,160,6:.tx,6[170]128
  134. 1202 .pc,11,"restart game?"
  135. 1204 [141]304:.sr,208
  136. 1206 [139]i%[167]dm[178]2
  137. 1210 dn[178]i%:[142]
  138. 1220 .ss,208
  139. 1221 .bx,15,24,10,14,160,6:.tx,6[170]128
  140. 1222 .p@,16,11,"new gameletrestartletcancel"
  141. 1224 .mu,16,23,11,13,6,128,"nrc"
  142. 1225 .sr,208
  143. 1226 [139]sl%[178]3[167]dn[178]0:[142]
  144. 1228 [139]sl%[178]1[167]:.of:[138]
  145. 1229 [129]y[178]0[164]52:[129]x[178]0[164]8:cr(x,y)[178]0:[130]:[130]
  146. 1230 s$[178][196]([181]([187](1)[172]32000)[170]1)
  147. 1232 x[178][187]([171][197](s$))
  148. 1234 .bx,22,35,0,0,160,0
  149. 1235 .p@,22,0,"game: "[170]s$
  150. 1240 dm[178]sl%:dn[178]1:[142]
  151. 1256 [137]6000
  152. 1299 dm[178]sl%:dn[178]1:[142]
  153. 1300 .ss,208
  154. 1301 [141]300
  155. 1302 e%[178]i%[172]2:dn[178]i%
  156. 1303 .sr,208
  157. 1304 [142]
  158. 1400 [139]cr(8,0)[178]4[167]1110
  159. 1402 y[178]0:[129]x[178]1[164]4
  160. 1404 [139]cr(8,x)[178]0[167]y[178]x:x[178]4
  161. 1406 [130]:lx[178]y[170]7:[137]1120
  162. 1999 .er:[142]
  163. 2000 [142]
  164. 2001 x[178][181]([187](1)[172]3200)[170]1
  165. 2005 .bx,13,26,10,14,160,0:.tx,128
  166. 2010 .pc,11,"choose game:"
  167. 2011 s$[178][202]([196](x),2)
  168. 2012 .in,17[170]128,13[170]128,6,6,5,s$
  169. 2014 x[178][187]([171][197](w$)):.er:s$[178]w$
  170. 2015 .bx,22,35,0,0,160,0
  171. 2016 .p@,22,0,"game: "[170]w$:.ss,232
  172. 2019 dm[178]1:.er:[142]
  173. 2020 [139]dm[177]0[167][142]
  174. 2022 .ss,208: x[178][181]([187](1)[172]3200)[170]1
  175. 2025 .bx,13,26,10,16,160,0:.tx,128
  176. 2030 .pc,11,"this game:"
  177. 2031 s$[178][202]([196](x),2)
  178. 2032 .pc,13,s$:.pc,15,"play change"
  179. 2034 .mz,2,14,17,19,24,15,15,0,6[170]128,"pc"
  180. 2035 .sr,208
  181. 2036 [139]sl%[178]2[167]2005
  182. 2045 .bx,22,35,0,0,160,0
  183. 2046 .p@,22,0,"game: "[170]s$:.ss,232
  184. 2049 .er:[142]
  185. 2099 .er:[142]
  186. 2100 [143] undo
  187. 2102 [139]pl[178]0[167]dn[178]0:[142]
  188. 2103 [139]gu[177]0[167]2200
  189. 2106 [141]3400:dn[178]0:pl[178]0:[142]
  190. 2200 cr(lv,0)[178]lu:cr(gv,0)[178]gu
  191. 2202 gu[178]0:pl[178]0:.sr,216:dn[178]0:[142]
  192. 2999 .er:[142]
  193. 3000 [143] move stuff
  194. 3001 dn[178]0:gu[178]0:lu[178]0
  195. 3005 [139]gx[177]7[167]3100:cel 2 ..
  196. 3006 [139]lx[177]7[167]3200:col 2 cell
  197. 3007 [143]  col 2 col
  198. 3010 cf[178]cr(gx,cr(gx,0))
  199. 3012 ct[178]cr(lx,cr(lx,0))
  200. 3014 [139]cf[178]ct[167]dn[178]1:[142]
  201. 3015 [139]cr(lx,0)[178]0[167]3600:::3020
  202. 3016 [139]cv(cf)[179][177]cv(ct)[171]1[167][142]
  203. 3018 [139]cc(cf)[178]cc(ct)[167][142]
  204. 3020 [141]7000
  205. 3026 [141]7020
  206. 3030 dn[178]1:[142]
  207. 3100 [139]lx[177]7[167]3300:cel 2 cell
  208. 3101 [143] cel 2 col
  209. 3102 x[178]gx[171]7:cf[178]cr(8,x)
  210. 3104 [139]cf[178]0[167]dn[178]1:[142]
  211. 3106 ct[178]cr(lx,cr(lx,0)):[139]cr(lx,0)[178]0[167]3112
  212. 3108 [139]cv(ct)[179][177]cv(cf)[170]1[167][142]
  213. 3110 [139]cc(ct)[178]cc(cf)[167][142]
  214. 3112 cr(8,x)[178]0:cr(8,0)[178]cr(8,0)[171]1
  215. 3114 [141]7020
  216. 3116 .bx,x1(gx),x1(gx)[170]3,1,5,160,2
  217. 3119 ch[178]cf
  218. 3120 dn[178]1:[142]
  219. 3200 [143] col 2 cell
  220. 3202 x[178]lx[171]7:ct[178]cr(8,x)
  221. 3204 gy[178]cr(gx,0):[139]gy[178]0[167][142]
  222. 3206 cf[178]cr(gx,gy)
  223. 3208 [139]lx[177]11[167]3230
  224. 3210 [139]ct[179][177]0[167][142]
  225. 3212 cr(8,x)[178]cf:cr(8,0)[178]cr(8,0)[170]1
  226. 3214 [141]7000
  227. 3216 .op,cf,x1(lx),1
  228. 3222 dn[178]1:[142]
  229. 3229 [143] aces
  230. 3230 [139]ct[178]0[167]3236
  231. 3234 [139]cc(ct)[179][177]cc(cf)[167][142]
  232. 3235 [139][181]((ct[171]1)[173]13)[179][177][181]((cf[171]1)[173]13)[167][142]
  233. 3236 [139]cv(ct)[179][177]cv(cf)[171]1[167][142]
  234. 3238 cr(8,x)[178]cf:ch[178]cf:[137]3214
  235. 3300 [143] cel 2 cell
  236. 3302 g[178]gx[171]7:cf[178]cr(8,g)
  237. 3304 x[178]lx[171]7:ct[178]cr(8,x):[139]ct[178]cf[167]dn[178]1:[142]
  238. 3306 [139]lx[177]11[167]3320:aceii
  239. 3308 [139]ct[179][177]0[167][142]
  240. 3310 cr(8,x)[178]cf:cr(8,g)[178]0
  241. 3312 .bx,x1(gx),x1(gx)[170]3,1,5,160,2
  242. 3314 .op,cf,x1(lx),1:ch[178]cf
  243. 3316 dn[178]1:[142]
  244. 3319 [143] aceii
  245. 3320 [139]ct[178]0[167]3324
  246. 3322 [139]cc(ct)[179][177]cc(cf)[167][142]
  247. 3323 [139][181]((cf[171]1)[173]13)[179][177][181]((ct[171]1)[173]13)[167][142]
  248. 3324 [139]cv(ct)[179][177]cv(cf)[171]1[167][142]
  249. 3326 cr(8,0)[178]cr(8,0)[171]1:[137]3310
  250. 3400 [143] undo
  251. 3401 gu[178]0
  252. 3402 [139]lx[177]7[167]3420
  253. 3404 cr(lx,0)[178]cr(lx,0)[171]1
  254. 3406 [139]gx[177]7[167]3430
  255. 3408 cr(gx,0)[178]cr(gx,0)[170]1
  256. 3410 .sr,216
  257. 3412 [142]
  258. 3420 [139]lx[177]11[167]3440
  259. 3422 x[178]lx[171]7:cr(8,x)[178]0:cr(8,0)[178]cr(8,0)[171]1
  260. 3424 [137]3406
  261. 3430 x[178]gx[171]7:cr(8,x)[178]ch
  262. 3434 cr(8,0)[178]cr(8,0)[170]1
  263. 3436 [137]3410
  264. 3440 x[178]lx[171]7:ca[